home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / Panorama3_d1.adf / ARexxMacros / F8.Panorama < prev    next >
Text File  |  1993-02-20  |  577b  |  32 lines
  1. /* Send picture from Panorama to ToasterPaint */
  2. /* by Mark Thomas                             */
  3. /* ToasterPaint must be loaded and            */
  4. /*    running in the background.              */
  5.  
  6. Say
  7. Say "Verify ToasterPaint is running"
  8.  
  9. /* Do limited testing to see if ToasterPaint running */
  10. If show(port, 'DigiPaint') = 0 Then Exit
  11.  
  12. Address 'Panorama'
  13. say "Saving IFF24"
  14. 'SaveIFF24 ram:pan.iff'
  15. If RC ~= 0 Then Exit
  16.  
  17. say "Burning toast."
  18. 'SetBusyPointer'
  19.  
  20. Address 'DigiPaint'
  21.  
  22. 'Lo24'
  23. 'Dir3'
  24. 'Dsel'
  25. 'Fnampan.iff'
  26. 'Okls'
  27. 'Vwco'
  28.  
  29. Address 'Panorama'
  30. say "Done."
  31. 'ClearPointer'
  32.